home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / NHyperCat.cpt / NeuHyperCat v1.0 / background_2651.txt < prev    next >
Text File  |  1988-11-06  |  15KB  |  650 lines
  1. -- background: 2651 from stack: in.0
  2. -- bmap block id: 3239
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: FirstBack
  6. ----- HyperTalk script -----
  7. on opencard
  8.   hide bkgnd field "showmod"
  9.   hide bkgnd field "showsize"
  10.   hide bkgnd field "showcreate"
  11.   hide bkgnd field "showname"
  12.   show bkgnd button "covershare"
  13.   show bkgnd button "list files"
  14.   show background button "list vols"
  15.   hide bkgnd field "showname"
  16.   hide bkgnd field "showcreate"
  17.   hide bkgnd field "showsize"
  18.   hide bkgnd field "showmod"
  19.   show bkgnd button "covershare"
  20.   show bkgnd button "coverfunction"
  21.   put the number of cards of this background into bkgnd field "numvol"
  22. end opencard
  23.  
  24. ON controlkey thekey
  25.   if thekey is 1 then
  26.     click at the loc of bkgnd button "add disk"
  27.   end if
  28.   if thekey is 4 then
  29.     click at the loc of bkgnd button "delete disk"
  30.   end if
  31.   if thekey is 19 then
  32.     click at the loc of bkgnd button "Search"
  33.   end if
  34.  
  35. end controlkey
  36.  
  37.  
  38.  
  39. -- part 12 (button)
  40. -- low flags: 00
  41. -- high flags: 2000
  42. -- rect: left=460 top=4 right=37 bottom=496
  43. -- title width / last selected line: 0
  44. -- icon id / first selected line: 21060 / 21060
  45. -- text alignment: 1
  46. -- font id: 0
  47. -- text size: 12
  48. -- style flags: 0
  49. -- line height: 16
  50. -- part name: help
  51. ----- HyperTalk script -----
  52. on mouseUp
  53.   go to first card of background "helpback"
  54. end mouseUp
  55.  
  56.  
  57.  
  58. -- part 14 (field)
  59. -- low flags: 01
  60. -- high flags: 0000
  61. -- rect: left=82 top=100 right=115 bottom=220
  62. -- title width / last selected line: 0
  63. -- icon id / first selected line: 0 / 0
  64. -- text alignment: 0
  65. -- font id: 3
  66. -- text size: 9
  67. -- style flags: 256
  68. -- line height: 12
  69. -- part name: VolumeName
  70.  
  71.  
  72. -- part 15 (field)
  73. -- low flags: 80
  74. -- high flags: 0000
  75. -- rect: left=4 top=318 right=335 bottom=52
  76. -- title width / last selected line: 0
  77. -- icon id / first selected line: 0 / 0
  78. -- text alignment: 0
  79. -- font id: 3
  80. -- text size: 12
  81. -- style flags: 0
  82. -- line height: 16
  83. -- part name: files
  84.  
  85.  
  86. -- part 16 (button)
  87. -- low flags: 00
  88. -- high flags: A003
  89. -- rect: left=5 top=230 right=251 bottom=77
  90. -- title width / last selected line: 0
  91. -- icon id / first selected line: 0 / 0
  92. -- text alignment: 1
  93. -- font id: 0
  94. -- text size: 12
  95. -- style flags: 0
  96. -- line height: 16
  97. -- part name: List Files
  98. ----- HyperTalk script -----
  99. on mouseUp
  100.   if bkgnd field "files" is not empty then
  101.     repeat with x=1 to the number of lines in bkgnd field "files"
  102.       put line x of bkgnd field "files" &"," after last char of filist
  103.     end repeat
  104.     put sortitems(filist,false) into filist
  105.     doList "More Info","Cancel",filist,ONE,9,125
  106.     put item 2 of the result into searchfor
  107.     put empty into sfou
  108.     ---put item 2 of the result into searchfor
  109.     ---put searchfor into message
  110.     repeat with x=1 to the number of lines in bkgnd field "files"
  111.       if line x of bkgnd field "files" contains searchfor then
  112.         put true into sfou
  113.         exit repeat
  114.       end if
  115.     end repeat
  116.     if sfou is true then
  117.       hide bkgnd button "list files"
  118.       hide background button "list vols"
  119.  
  120.       put line x of background field "size" & " K" into background field "showsize"
  121.       put "Last Modified: "&line x of bkgnd field "mod" into bkgnd field "showmod"
  122.       put "Type: "& line x of bkgnd field "create" into bkgnd field "showcreate"
  123.       put searchfor into bkgnd field "showname"
  124.       set lockscreen to true
  125.       hide background button "coverfunction"
  126.       show bkgnd field "showname"
  127.       show bkgnd field "showcreate"
  128.       show bkgnd field "showsize"
  129.       show bkgnd field "showmod"
  130.       set lockscreen to false
  131.     end if
  132.   end if
  133. end mouseUp
  134.  
  135.  
  136.  
  137. -- part 17 (button)
  138. -- low flags: 00
  139. -- high flags: A003
  140. -- rect: left=237 top=230 right=251 bottom=309
  141. -- title width / last selected line: 0
  142. -- icon id / first selected line: 0 / 0
  143. -- text alignment: 1
  144. -- font id: 0
  145. -- text size: 12
  146. -- style flags: 0
  147. -- line height: 16
  148. -- part name: List Vols
  149. ----- HyperTalk script -----
  150. on mouseUp
  151.   set lockscreen to true
  152.   go to first card of this background
  153.   set cursor to 4
  154.   repeat with x=1 to the number of cards of this background
  155.     put line 1 of bkgnd field "volumename" &"," after last char of volist
  156.     go to next card of this background
  157.   end repeat
  158.   put sortitems(volist,false) into volist
  159.   set lockscreen to false
  160.   dolist "Go To","Cancel",volist,one,9,125
  161.   put item 2 of the result into goto
  162.   find word goto in bkgnd field "volumename"
  163.  
  164. end mouseUp
  165.  
  166.  
  167.  
  168. -- part 18 (button)
  169. -- low flags: 00
  170. -- high flags: A003
  171. -- rect: left=5 top=316 right=335 bottom=73
  172. -- title width / last selected line: 0
  173. -- icon id / first selected line: 0 / 0
  174. -- text alignment: 1
  175. -- font id: 0
  176. -- text size: 12
  177. -- style flags: 0
  178. -- line height: 16
  179. -- part name: Add Disk
  180. ----- HyperTalk script -----
  181. on mouseUp
  182.   answer"Add catalog to a new card or erase this card?"  with "Cancel" or "Erase" or "New"
  183.  
  184.   if it is "New" then
  185.     doMenu "New Card"
  186.   end if
  187.   if it is "Cancel" then
  188.     exit mouseup
  189.   end if
  190.  
  191.   put readcat() into catbox
  192.   put line 1 of catbox into bkgnd field "volumename"
  193.   repeat with x=2 to the number of lines in catbox
  194.     put line x of catbox into analyze
  195.     put item 4 of analyze into line x of background field "files"
  196.     put item 3 of analyze into line x of bkgnd field "size"
  197.     put item 2 of analyze into line x of bkgnd field "mod"
  198.     put item 7 of analyze into line x of bkgnd field "create"
  199.   end repeat
  200.  
  201. end mouseUp
  202.  
  203.  
  204.  
  205. -- part 21 (field)
  206. -- low flags: 81
  207. -- high flags: 0000
  208. -- rect: left=20 top=33 right=51 bottom=111
  209. -- title width / last selected line: 0
  210. -- icon id / first selected line: 0 / 0
  211. -- text alignment: 0
  212. -- font id: 3
  213. -- text size: 12
  214. -- style flags: 0
  215. -- line height: 16
  216. -- part name: size
  217.  
  218.  
  219. -- part 22 (field)
  220. -- low flags: 81
  221. -- high flags: 0000
  222. -- rect: left=15 top=55 right=74 bottom=116
  223. -- title width / last selected line: 0
  224. -- icon id / first selected line: 0 / 0
  225. -- text alignment: 0
  226. -- font id: 3
  227. -- text size: 12
  228. -- style flags: 0
  229. -- line height: 16
  230. -- part name: mod
  231.  
  232.  
  233. -- part 23 (field)
  234. -- low flags: 81
  235. -- high flags: 0004
  236. -- rect: left=64 top=119 right=138 bottom=246
  237. -- title width / last selected line: 0
  238. -- icon id / first selected line: 0 / 0
  239. -- text alignment: 1
  240. -- font id: 3
  241. -- text size: 10
  242. -- style flags: 0
  243. -- line height: 13
  244. -- part name: showsize
  245.  
  246.  
  247. -- part 24 (field)
  248. -- low flags: 81
  249. -- high flags: 0004
  250. -- rect: left=64 top=141 right=159 bottom=246
  251. -- title width / last selected line: 0
  252. -- icon id / first selected line: 0 / 0
  253. -- text alignment: 1
  254. -- font id: 3
  255. -- text size: 10
  256. -- style flags: 0
  257. -- line height: 13
  258. -- part name: showmod
  259.  
  260.  
  261. -- part 25 (field)
  262. -- low flags: 81
  263. -- high flags: 0004
  264. -- rect: left=64 top=162 right=180 bottom=246
  265. -- title width / last selected line: 0
  266. -- icon id / first selected line: 0 / 0
  267. -- text alignment: 1
  268. -- font id: 3
  269. -- text size: 10
  270. -- style flags: 0
  271. -- line height: 13
  272. -- part name: showcreate
  273.  
  274.  
  275. -- part 29 (field)
  276. -- low flags: 81
  277. -- high flags: 0004
  278. -- rect: left=64 top=256 right=282 bottom=246
  279. -- title width / last selected line: 0
  280. -- icon id / first selected line: 0 / 0
  281. -- text alignment: 1
  282. -- font id: 3
  283. -- text size: 14
  284. -- style flags: 256
  285. -- line height: 18
  286. -- part name: showname
  287.  
  288.  
  289. -- part 30 (field)
  290. -- low flags: 81
  291. -- high flags: 0000
  292. -- rect: left=85 top=70 right=88 bottom=218
  293. -- title width / last selected line: 0
  294. -- icon id / first selected line: 0 / 0
  295. -- text alignment: 0
  296. -- font id: 3
  297. -- text size: 12
  298. -- style flags: 0
  299. -- line height: 16
  300. -- part name: create
  301.  
  302.  
  303. -- part 32 (button)
  304. -- low flags: 00
  305. -- high flags: 2000
  306. -- rect: left=2 top=1 right=21 bottom=26
  307. -- title width / last selected line: 0
  308. -- icon id / first selected line: 11045 / 11045
  309. -- text alignment: 1
  310. -- font id: 0
  311. -- text size: 12
  312. -- style flags: 0
  313. -- line height: 16
  314. -- part name: gohome
  315. ----- HyperTalk script -----
  316. on mouseUp
  317.   if the freesize of this stack is 0 then
  318.     go home
  319.     exit mouseup
  320.   end if
  321.   put the freesize of this stack into fsz
  322.   put fsz&" bytes unused. Compact stack?" into lne
  323.   answer lne with "Yes" or "Just go Home"
  324.   if it is "Yes" then
  325.     doMenu "Compact Stack"
  326.   end if
  327.  
  328.  
  329.  
  330.   go home
  331. end mouseUp
  332.  
  333.  
  334.  
  335. -- part 33 (button)
  336. -- low flags: 00
  337. -- high flags: A003
  338. -- rect: left=338 top=140 right=158 bottom=487
  339. -- title width / last selected line: 0
  340. -- icon id / first selected line: 0 / 0
  341. -- text alignment: 1
  342. -- font id: 0
  343. -- text size: 12
  344. -- style flags: 0
  345. -- line height: 16
  346. -- part name: Change Type/Creator
  347. ----- HyperTalk script -----
  348. on mouseup
  349.   play boing
  350.   hide bkgnd button "covershare"
  351.   wait until the mouseclick
  352.   show bkgnd button "covershare"
  353.   show bkgnd button "list files"
  354.   show background button "list vols"
  355.   show bkgnd button "click"
  356.   hide bkgnd field "showname"
  357.   hide bkgnd field "showcreate"
  358.   hide bkgnd field "showsize"
  359.   hide bkgnd field "showmod"
  360.   show bkgnd button "covershare"
  361.   show bkgnd button "coverfunction"
  362.  
  363. end mouseup
  364.  
  365.  
  366.  
  367. -- part 34 (button)
  368. -- low flags: 00
  369. -- high flags: A003
  370. -- rect: left=339 top=165 right=183 bottom=488
  371. -- title width / last selected line: 0
  372. -- icon id / first selected line: 0 / 0
  373. -- text alignment: 1
  374. -- font id: 0
  375. -- text size: 12
  376. -- style flags: 0
  377. -- line height: 16
  378. -- part name: Delete File
  379. ----- HyperTalk script -----
  380. on mouseup
  381.   play boing
  382.   hide bkgnd button "covershare"
  383.   wait until the mouseclick
  384.   show bkgnd button "covershare"
  385.   show bkgnd button "list files"
  386.   show background button "list vols"
  387.   show bkgnd button "click"
  388.   hide bkgnd field "showname"
  389.   hide bkgnd field "showcreate"
  390.   hide bkgnd field "showsize"
  391.   hide bkgnd field "showmod"
  392.   show bkgnd button "covershare"
  393.   show bkgnd button "coverfunction"
  394.  
  395. end mouseup
  396.  
  397.  
  398.  
  399. -- part 35 (button)
  400. -- low flags: 00
  401. -- high flags: A003
  402. -- rect: left=339 top=213 right=231 bottom=488
  403. -- title width / last selected line: 0
  404. -- icon id / first selected line: 0 / 0
  405. -- text alignment: 1
  406. -- font id: 0
  407. -- text size: 12
  408. -- style flags: 0
  409. -- line height: 16
  410. -- part name: Change Name
  411. ----- HyperTalk script -----
  412. on mouseup
  413.   play boing
  414.   hide bkgnd button "covershare"
  415.   wait until the mouseclick
  416.   show bkgnd button "covershare"
  417.   show bkgnd button "list files"
  418.   show background button "list vols"
  419.   show bkgnd button "click"
  420.   hide bkgnd field "showname"
  421.   hide bkgnd field "showcreate"
  422.   hide bkgnd field "showsize"
  423.   hide bkgnd field "showmod"
  424.   show bkgnd button "covershare"
  425.   show bkgnd button "coverfunction"
  426.  
  427. end mouseup
  428.  
  429.  
  430.  
  431. -- part 36 (button)
  432. -- low flags: 00
  433. -- high flags: A003
  434. -- rect: left=339 top=189 right=207 bottom=488
  435. -- title width / last selected line: 0
  436. -- icon id / first selected line: 0 / 0
  437. -- text alignment: 1
  438. -- font id: 0
  439. -- text size: 12
  440. -- style flags: 0
  441. -- line height: 16
  442. -- part name: Copy File
  443. ----- HyperTalk script -----
  444. on mouseup
  445.   play boing
  446.   hide bkgnd button "covershare"
  447.   wait until the mouseclick
  448.   show bkgnd button "covershare"
  449.   show bkgnd button "list files"
  450.   show background button "list vols"
  451.   show bkgnd button "click"
  452.   hide bkgnd field "showname"
  453.   hide bkgnd field "showcreate"
  454.   hide bkgnd field "showsize"
  455.   hide bkgnd field "showmod"
  456.   show bkgnd button "covershare"
  457.   show bkgnd button "coverfunction"
  458.  
  459. end mouseup
  460.  
  461.  
  462.  
  463. -- part 37 (button)
  464. -- low flags: 00
  465. -- high flags: 0001
  466. -- rect: left=328 top=238 right=322 bottom=497
  467. -- title width / last selected line: 0
  468. -- icon id / first selected line: 0 / 0
  469. -- text alignment: 1
  470. -- font id: 0
  471. -- text size: 12
  472. -- style flags: 0
  473. -- line height: 16
  474. -- part name: covershare
  475.  
  476.  
  477. -- part 38 (button)
  478. -- low flags: 00
  479. -- high flags: 0001
  480. -- rect: left=330 top=115 right=236 bottom=498
  481. -- title width / last selected line: 0
  482. -- icon id / first selected line: 0 / 0
  483. -- text alignment: 1
  484. -- font id: 0
  485. -- text size: 12
  486. -- style flags: 0
  487. -- line height: 16
  488. -- part name: coverfunction
  489.  
  490.  
  491. -- part 39 (button)
  492. -- low flags: 00
  493. -- high flags: 2000
  494. -- rect: left=248 top=260 right=280 bottom=278
  495. -- title width / last selected line: 0
  496. -- icon id / first selected line: 22308 / 22308
  497. -- text alignment: 1
  498. -- font id: 0
  499. -- text size: 12
  500. -- style flags: 0
  501. -- line height: 16
  502. -- part name: goright
  503. ----- HyperTalk script -----
  504. on mouseUp
  505.   go to next card of this background
  506. end mouseUp
  507.  
  508.  
  509.  
  510. -- part 40 (button)
  511. -- low flags: 00
  512. -- high flags: 2000
  513. -- rect: left=32 top=260 right=280 bottom=62
  514. -- title width / last selected line: 0
  515. -- icon id / first selected line: 19381 / 19381
  516. -- text alignment: 1
  517. -- font id: 0
  518. -- text size: 12
  519. -- style flags: 0
  520. -- line height: 16
  521. -- part name: goleft
  522. ----- HyperTalk script -----
  523. on mouseUp
  524.   go to previous card of this background
  525. end mouseUp
  526.  
  527.  
  528.  
  529. -- part 41 (button)
  530. -- low flags: 00
  531. -- high flags: A003
  532. -- rect: left=166 top=316 right=335 bottom=234
  533. -- title width / last selected line: 0
  534. -- icon id / first selected line: 0 / 0
  535. -- text alignment: 1
  536. -- font id: 0
  537. -- text size: 12
  538. -- style flags: 0
  539. -- line height: 16
  540. -- part name: Search
  541. ----- HyperTalk script -----
  542. on mouseUp
  543.   answer"Search for Volume Name or FileName?" with "Volume" or "File" or "Cancel"
  544.   if it is "Volume" then
  545.     ask"Search for what Volume?"
  546.     if it is not empty then
  547.       put it into sf
  548.       find chars sf in background field "VolumeName"
  549.     end if
  550.   end if
  551.  
  552.   if it is "File" then
  553.     ask"Search for what file?"
  554.     if it is not empty then
  555.       put it into sf
  556.       find chars it in bkgnd field "files"
  557.     end if
  558.   end if
  559.  
  560. end mouseUp
  561.  
  562.  
  563.  
  564. -- part 42 (button)
  565. -- low flags: 00
  566. -- high flags: A003
  567. -- rect: left=238 top=316 right=335 bottom=306
  568. -- title width / last selected line: 0
  569. -- icon id / first selected line: 0 / 0
  570. -- text alignment: 1
  571. -- font id: 0
  572. -- text size: 12
  573. -- style flags: 0
  574. -- line height: 16
  575. -- part name: Sort
  576. ----- HyperTalk script -----
  577. on mouseUp
  578.   sort by bkgnd field "volumename"
  579. end mouseUp
  580.  
  581.  
  582.  
  583. -- part 43 (field)
  584. -- low flags: 01
  585. -- high flags: 0000
  586. -- rect: left=82 top=78 right=93 bottom=220
  587. -- title width / last selected line: 0
  588. -- icon id / first selected line: 0 / 0
  589. -- text alignment: 0
  590. -- font id: 3
  591. -- text size: 10
  592. -- style flags: 0
  593. -- line height: 13
  594. -- part name: numvol
  595.  
  596.  
  597. -- part 44 (button)
  598. -- low flags: 00
  599. -- high flags: 0000
  600. -- rect: left=423 top=28 right=43 bottom=445
  601. -- title width / last selected line: 0
  602. -- icon id / first selected line: 0 / 0
  603. -- text alignment: 1
  604. -- font id: 0
  605. -- text size: 12
  606. -- style flags: 0
  607. -- line height: 16
  608. -- part name: click
  609.  
  610.  
  611. -- part 45 (button)
  612. -- low flags: 00
  613. -- high flags: A003
  614. -- rect: left=78 top=316 right=335 bottom=161
  615. -- title width / last selected line: 0
  616. -- icon id / first selected line: 0 / 0
  617. -- text alignment: 1
  618. -- font id: 0
  619. -- text size: 12
  620. -- style flags: 0
  621. -- line height: 16
  622. -- part name: Delete Disk
  623. ----- HyperTalk script -----
  624. on mouseUp
  625.   answer"Delete this card and diskette catalog?" with "Yes" or "Cancel"
  626.   if it is "Yes" then
  627.     doMenu "Delete Card"
  628.   end if
  629. end mouseup
  630.  
  631.  
  632.  
  633. -- part 46 (button)
  634. -- low flags: 00
  635. -- high flags: 0000
  636. -- rect: left=233 top=26 right=106 bottom=331
  637. -- title width / last selected line: 0
  638. -- icon id / first selected line: 0 / 0
  639. -- text alignment: 1
  640. -- font id: 0
  641. -- text size: 12
  642. -- style flags: 0
  643. -- line height: 16
  644. -- part name: 
  645. ----- HyperTalk script -----
  646. on mouseUp
  647.   answer"PAY YOUR SHAREWARE FEE! <grrrr>"
  648. end mouseUp
  649.  
  650.